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OPCOM. BRcIcLUSMSG. B35; 1 (1) 


ee 


; 1 001 MODULE OPCSCLUSMSG ( 

Pag 008 IDENT S *vOK-000" 

Pay 0008 FP 

: S Boag 8 See RARER REAR OR AAREAEERAAEAAAAT EAA 
; '® 
; 8 0008 Q !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 

: 3 0009 O !* DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. * 
; 19 Bag 8 :* ALL RIGHTS RESERVED * | 
: : * 
; \ 4 8 'e THIS oe. Md FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 01 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 0014 Q !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

. .- 0015 0 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 8918 QO !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 + oid FA 8 b TRANSFERRED. * 
. '® 8 | 
c . Oe 0019 Q !« pe oe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 2 0020 Q !* HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $ ope) 8 ” CORPORATION. * 
: '® e 
: s¢ $098 0 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS x | 
> 626 0024 0 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
.. 0025 0 !* * 
; B068 Q !« * | 
: 27 002 QD Pee e eee eee REAR EA RAAT ERE EAA 

; a 0028 0 
; $3 0029 0 !++ 
; 0 0030 0 ! FACILITY: 
; 31 0031 0: | 
: 32 0032 0! OPCOM 
;: oe 0035 0! 

3; & 0034 0 | ABSTRACT: 
.. 0035 0! 
; =» 0036 0! This module contains the specialized logic to service | 
3 He $4 8 a particular type of request sent by a user to OPCOM. 

; 0039 QO ! Environment: 
; © 0040 9! 
: «(41 0041 0! VAX/VMS operating system. 

; 42 0042 0! 

s 65 0043 0 ! Author: 

: 44 044 8 ' 

co OS 045 : CW Hobbs 

; 646 Boeg Q! 

; «(47 0047 0 ! Creation date: 
; «648 0048 0! 
; «649 si 3 ! 16-JUL-1983 

; 50 050 ‘ ; 

3; #1 0051 0 ! Revision history: 

3 26 4 0! 

eS 0055 0! v03-006 CWH3006 24-May-1984 

: «(54 0054 Q! REPLY /USER etc. “stopped york ing in a non-cluster system 

. 3 0055 0! because a check in C 69 was Reine s ppp lied to clm__rpybrd_local 

:. 8028 8 : messages. Move the check inside the block which excTudes 

. oF 005 : local node replies. 


OPCSCLUSMSG 

vos-000 

; 8 p038 ' 

3 28 94 } v03-005 
; 6 0061 ‘ 

; § 448 : 

oe * 006 ' v03-004 
; & 0064 ‘ 

; 0065 0! 

; @& 443 0! 

: 67 067 0! 

; 0068 0! 

; & 434 0! 

; 070 0! 

“Tae 0071 OQ! 

- we 0072 0! 

3 73 0075 0! v03-003 
; 74 0074 0! 

; 0075 0! 

: 76 0076 0! 

3 77 0077 0! 

3 78 0078 0! v03-002 
: 7g 0079 0! 

; @& 0080 0! 

>. 0081 0! 

: & 0082 0 !-- 


71986 92:80:37 — EOBcom. SacSeLusm$e.032; 


vom 


CwH3005 CW Hobbs 16-May-1984 
Fix RSHO112 so that the receiving node will also see that 
no unformatted text was sent. 


CWH3169 CW Hobbs 5-May-1984 

Second pass for cluster-wide OPCOM: 

- Add CLM_L_CSID to clm message header, and make the embedded 
RQCB distinct, rather than overlaying on top of the header. 

- If an input message has a standard header, then redo the 
header so that the local time is first, and put the remote 
time at the end, 

- When a message is received, make sure that the CSID matches 
a node that we can see. If not, discard the message. 


RSHO112 R. Scott Hanna 12-Mar-1984 
CLUSMSG_RQCB_SEND / Increase the local buffer size 
and prevent unformatted security auditing messages 
from being sent to other cluster members. 


CWH3002 CW Hobbs ; 16-Sep-1983 
Add CLUMBX message type, use VM jacket routines 
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v04-000 1228 8=13e 13385533 OPCOM.SRCJCLUSMSG.B32;1 ee (2) NN 
ae - 1 0083 1 BEGIN ! Start of CLUSMSG H 
; 89 0084 1 F 
; 0085 1 LIBRARY ‘SYSSLIBRARY:LIB.L32'; : 
; Of Bees 1 LIBRARY ‘LIBS$:OPCOMLIB'; ; 
; #8 0087 1 : 
; 89 0088 1 FORWARD ROUTINE : 
; 0089 1 CLUSMSG_ACK_PLEASE : NOVALUE, ! Request an acknowledgement $ 
ca. 2 0090 1 CLUSMSG_CLM_ACK_HANDLER : NOVALUE, ! Handle an acknowledgement ; 
; ¥ 0091 1 CLUSMSG_CLM_ACK_PLEASE HANDLER : NOVALUE , ! Handle a request for an acknowledgement : 
:; 9g 0092 1 CLUSMSG_CLM"NOTIFY_ HANDLER : NOVALUE, ! Log message and notify operators 3 
3; 94 0093 1 CLUSMSG_CONY CLM_ROCB, ! Convert a CLMRQCB structure to an RQCB F 
;. 0094 1 CLUSMSG_HANDCER = NOVALUE, ' Main level, check message and dispatch ; 
> 9% 0095 1 CLUSMSG-RQCB_ SEN i Convert ROCB to CLMRQCB and send to cluster ; 
; 44 0096 CLUSMSG_STATE_SEND; i Send current state to cluster node(s) 
; 99 0098 1 EXTERNAL ROUTINE : 
: 100 0099 1 Fae : 
s Ww 0100 1 ! Miscellaneous routines ; 
; Ie 0101 1 : : 
; B108 1 ALLOCATE_DS, : 
> 104 0103 1 CLUSCOMM_SEND ! Send message to the cluster. ; 
; 105 0104 1 CLUSUTIL~CONF IGURE, i Configure the club membership : 
: 106 0105 1 CLUSUTIL_FIND_NOD_BY_CSID, : Find a NOD block by its CSID : 
; 107 0106 1 CLUSUTIL-NODE-ACTIVATE, ' Make a node active Te ; 
; 108 0107 1 CLUSUTIL_NODE_MESSAGE, ! Tell operators of a node activity : 
; 109 0108 1 DEALLOCATE ROtB, ! Release an RQCB F 
; 110 0109 1 DUMP LOG FILE, ! Write a epring to the log file ; 
Pek 0110 1 IMPLICITCY CANCELED, ' Look for implicitly canceled requests z 
; V2 0111 1 IMPLIED_CANCEL ! Cancel queue of requests to be canceled F 
: 113 Olle | IMPLIED-DISABLE, i Disable stale operators : 
g 136 0113 #1 OG_MESSAGE ! Write a message to the logfile : 
: 115 0114 1 NOTIFY LISTED OPERATORS, i Send messages to operators ; 
> 116 0115 1 SHARE _FAO_BUFFER, ! Format an FAO string : 
: + 4 Bits WRITE_LOG_FILE, ! Write a string to the log file : 
: 1% O45 : : Handlers for cluster messages (CLMs) : 
3 «(Yer 0120 1 CANCEL_CLM_HANDLER : NOVALUE, ' Cancel request from remote 3 
: \$¢ 8153 1 CLUSREPLY_RPYBRD_HANDLER : NOVALUE, ! Broadcast from remote REPLY command : 
: te 01 ¢ 1 CLUSREPLY_RPYBRD_LOCAL_ HANDLER NOVALUE, ! Broadcast from local REPLY command : 
> 124 0123 1 CLUSREPLY_RPYNOT_HANDLER VALUE, ! Notification from remote REPLY command 3 
s Ye 0124 #1 OPERUTIL_CL ISABLE NOVALUE, ' Implicitly disable a remote operator 3 
> 126 0125 1 E E_CLA NOVALUE, ' Enable/Disable remote operator 3 
: \¢f bis$ 1 REPLY L : NOVALUE, ' Remote reply (/PEND, /TO) handler 3 
> 128 Ole? 1 REQUEST_CCM_HANDLER : NOVALUE, i Remote request handler ; 
; +4 0128 1 REQUEST CLM CHECK HANDLER : NOVALUE, ' Remote check request handler : 
3 it 3162 : SHUTDOWN_CLA_HANDCER : NOVALUE; ! Shutdown ordered by remote handler ; 
3 136 0131 1 EXTERNAL : 
3 3 ORs 1 LCL_NOD : Sref_oblock, : 
; «134 1 1 LCL_CSID : LON : 
: 135 0134 1 NOD~HEAD : VECTOR C2, LONG], ; 
3; (1% 0135 «#1 OCD VECTOR : VEC ' OCD List heads : 
; tH a3 GLOBAL_STATUS =: BITVECTOR; ; 
; «#4139 0138 1 EXTERNAL LITERAL : 
> 140 0139 1 MCB_K_TYPE, : 
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v04- clusmsg_ack_please 14-Sep-19 4 93:84:33 OPCOM. SRCICLUSMSG.B32;1 (3) \ 
: 132 re } GLOBAL ROUTINE CLUSMSG_ACK_PLEASE (NOD : $ref_bblock) : NOVALUE = ZSBTTL ‘clusmsg_ack_please' : 
s 947 0145 1 S44 ‘ 
: 168 Bi48 1 ! Functional description: : 
: 149 0147 1! : 
3 129 0148 1! Request an acknowledgement from a remote node. : 
s 33) 0149 1! : 
; 126 0150 1! Input : 
Be 0151 1! : 
> 154 p26 7% NOD = pointer to NOD structure of the remote node : 
3 399 0155 1! es | 3 
3 128 0154 1°! Implicit Input: : 
; 95 0155 1! ‘ 
; 138 0156 1! LCL_NOD = pointer to NOD structure for local node : 
; %> 0157 1! : 
: 160 0158 1 ! Output: ‘ 
> 161 0159 1! : 
: 16¢ 0160 1! None. a 
3; 0161 1! d : 
> «(164 8196 1 ! Implict output: ; 
: 165 0165 1! : 
; 166 0164 1! None. : 
: 167 ees FF - : 
; 168 0166 1 ! Side effects: : 
; 169 0167 1! : 
s 170 0168 1! Message sent to remote. | : 
; i 0169 1! : ; 
s tee 0170 1 ! Routine value: ; 
; 975 0171 1! 3 
: #174 Bits : 7 None. 3 
; 175 0173 1 i-- | ; 
> 176 0174 1 | : 
s Ure 0175 2 BEGIN ! Start of CLUSMSG_ACK_PLEASE : 
: 178 0176 2 : 
; #179 0177 2 LOCAL ; 
; 180 0178 2 MSG : $Sbblock CCLMACK_K_SIZE], : 
oy eee 8 ices feaat 
; 183 0181 2! If we have an ack qenees just return to avoid ppoeding wien ack messages. To resend : 
5 130 Biss § 1 an ack, you must clear this bit before calling this routine. : 
; «4186 0184 IF .NOD CNOD_V_ACK_PENDJ : 
s. ter 0185 T 3 
; «4188 3186 RETURN; : 
; «189 187 : : 3 
; bs $3 If we have already tried to talk to this guy, let them know : 
; 192 0190 2 IF .NOD CNOD_V_ACK_ATTEMPTED) : 
; 19 0191 THEN ; 
3 «6194 B136 ee te NODE MESSAGE (.NOD, OPCS_NODE_RETRY, FALSE); j 
; 195 0193 NOD CNOD_V_ACK_ATTEMPTED) = TRUE; ; 
3 + 44 0196 : Fill in the ack message header 
3; «6199 199 MSG CCLM_B_ROSTCODE = OPC$_X_CLUSMSG; F 
; 300 0198 MSG CCLM~B"CLM_CODE = CLM_ "ACKNOWLEDGE _PLEASE; 
; 201 019 MSG CCLM7B"DS_VERSION] = CLMATK_K_DS_VERSTON; 


-., 
OPCSCLUSMSG 16-Sep-1984 01:21: AX-11 Bliss-32 V4.0-74 P 6 
70-000 usmsg_ack_please 18-808- 138 2: 0:33 OPCOM. ERCTELUSMEG 3564 oer (3) 


0 MSG CLM_B_Sw VERSION] = OPCS$K SW_VERSION; 
0 MSG CCLM W_LERGTH 2 LMACR_ K-SIZE; 

04 MSG CLM ~W_FILL.1 = 

05 MSG CLALL “CSIDI = -LCL_CSID; 


Fill in the ack message from the local node info 

MSG CCLMACK_L_CSID] = .LCL_NOD CNOD_L_NODE_CSID); 

MSG CCLMACK-L-SYSTEMIDL] =~.LCL_NOD “fRo. L“NODE_SYSTEMIDL 
MSG CLMACK_W_SYSTEMIDH] = LeL “NOD CNOD"W-NODE-SYSTEMIDHI; 
; Send the message 

STATUS = CLUSCOMM_SEND (.NOD CNOD_L_NODE_CSIDJ, CLMACK_K_SIZE, MSG); 
i If we were able to send, mark it as pending 


2 

e! 

3 NOD CNOD_V_ACK_PEND] = .STATUS; 
2 

1 
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TITLE OPCSCLUSMSG 
-IDENT \V04-000\ 


-EXTRN ALLOCATE_DS, CLUSCOMM_SEND 

~EXTRN CLUSUTIL— CONFIGURE 

-EXTRN CLUSUTIL~FIND_NOD_BY_CSID 

EXTRN CLUSUTIL-NODE_ACTIVATE 

-EXTRN CLUSUTIL” NODE MESSAGE 

-EXTRN DEALLOCATE_ROQCB 

~-EXTRN DUMP_LOG_FILE, IMPLICITLY CANCELED 
-EXTRN IMPLYED CANCEL, IMPLI 

EXTRN LOG _MESSAGE, NOTIFY LISTED OPERATORS 
~EXTRN Rent ooce 


-EXTRN REQUEST_CCM_HANDLER 
~EXTRN REQUEST CLM CHECK HANDLER 
~EXTRN TDOWN_CLA_HANDCER 


Pee NOD, “LCL 

~EXTRN NOD “HEAD, OCD VECTOR 
*EXTRN GLOBAL . Status: MCB_K_TYPE 
-EXTRN RQCB ope TYPE, MIN_SCOPE 


~EXTRN MAX st 
-PSECT SCODE$,NOWRT,2 
0004 00000 ENTRY CLUSMSG. ACK_PLEASE, Save R2 ; 0143 | 
5E 18 C2 BR Ons SUBL2 
52 04 aC 00 0000 MOV NOD, R2 0184 
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v04- Lusmsg_ack_please 14-Sep-1984 12:50:37 OPCOM.SRCJCLUSMSG.B32;1 (4) 
GLOBAL ROUTINE CLUSMSG_CLM_ACK_HANDLER (BUFFER_DESC : Sref_bblock, CLM : Sref_bblock, LEN) : NOVALUE = 


lee 
! Functional description: 


4 


+ 


Handle an acknowledgement from a remote node. 
Input: 
BUFFER_DESC = pointer to pessoge from remote node, including $SNDOPR header 
CLM = ointer to CLMACK structure 
LEN = ength of LEN 
Implicit Input: 
None. 


Output. 


S&F NWWANWWronononenon) 


WN — SO ODONAMNE WN (OO ODNAUES WN O OONAUEWN—"OOONOU 


None. 
Implict output: 

None. 
Side effects: 

Message sent to remote. 
Routine value: 


eet et ee oe ee ee ee ee ee ee ee ee ee te te te te ee ee te te te ee 


POPIPOPONPIPOPEMPONMNPON PON NNN NON NON NON Nofnonony 
AACA MMINNVIVIVIVIUIUIS BELLE 
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ROPOPOPOPOPOPOPSNONOPMONONONIPOPUNIPONPYUNNDYD — 2 2 tt 0 tt 
- - - 


2 
5 
2 
2 
2 
2 
2 
2 None. 
§ -- 
33 BEGIN ' Start of CLUSMSG_CLM_ACK_HANDLER 
2 LOCAL 
2 NOD : $ref_bblock, 
$2 STATUS; 
64 2 i Check the version number of the message. If the message is from any other version, 
2? § } simply ignore it. 
67 ; iF cle CCLM_B_DS_VERSION] NEQ CLMACK_K_DS_VERSION 
69 26 RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID "CLM__ACK mismatch"); 
271 ‘ Find the NOD structure 
$38 27 NOD = CLUSUT ALF IND_WOD_BY_CSID (.CLM CCLMACK_L_CSID]); 
74 7 IF .NOD EQL 
75 7 THEN 
4 | , RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘no NOD for ACK"); 
8 Mark the NOD as active 
80 7 CLUSUTIL_NODE_ACTIVATE (.NOD); 


5 
OPCs -Sep- 721: - -0- 
vos-000 clusmsg_ack_please 1-00-1964 93:80:37 OPCOM. SRCSELUSMSG.832¢ 


BR BE om 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


74 61 6D 73 69 6D 20 4B 43 41 SF SF 4D 4C 43 00000 P.AAB: .ASCII \CLM__ACK mismatch\<0><0><0> 
00 00 00 68 63 0000F 
01 F011 0014 P.AAA: .LONG 17694737 
0000000" 00018 [ADDRESS P.AAB 
00 4B 43 41 20 72 6F 66 20 44 GF 4E 20 6F 6 0001¢ P.AAD: ASCII \no NOD for ACK\<0><0> 
010E000E aodee P.AAC: .LONG 17694734 
00000000" 00030 “ADDRESS P.AAD 
.PSECT $CODE$,NOWRT,2 
0004 00000 .ENTRY CLUSMSG_CLM_ACK_HANDLER, Save R2 
52 08 AC DO 00002 MOVL L 
02 02 A2 91 00006 CMPB so (R2), #2 
06 13 OO00A BEQL~=Sé«é18 
0000" CF 9F 0000C PUSHAB P.AAA 
11 11 00010 BRB 2$ 
0c A2 DD 90012 1$: PUSHL  12(R2) 
00006 CF 01 FB 0001 CALLS #1, CLUSUTIL_FIND_N%D_BY_CSID 
52 50 DO OO01A MOVL RO. NOD 
0D 12 0001D BNEQ 3$ 
0000" CF 9F OOO1F PUSHAB P.AAC 
04 AC DD 00023 2$ PUSHL BUFFER_DESC 
00006 CF 02 FB 00026 CALLS #2, DUMP_LOG_FILE 
04 00028 RET 
52 DD 0002C 3$ PUSHL NOD 
0000G CF 01 FB 000e CALLS #1, CLUSUTIL_NODE_ACTIVATE 
04 000 RET 


; Routine Size: 52 bytes, Routine Base: SCONES + 0062 
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| 
Side effects: | 

Message sent to remote. | 
Routine value: | 
None. | 


clusmsg_ack_please 14-Sep-19 OPCOM.SRCJCLUSMSG.B32;1 (5) 
+H 0 ! GLOBAL ROUTINE CLUSMSG_CLM_ACK_PLEASE_HANDLER (BUFFER_DESC : Sref_bblock, CLM : $ref_bblock, LEN) : NOVALUE | 
87 1o4 
64 0 Functional description: 
zy 0 Request an acknowledgement from a remote node. 
> 8 ; Input: 

94 0 i BUFFER_DESC - pointer to message from remote node, including SSNDOPR header 

95 8 } CLM = ointer to CLMRQCB structure 

38 S LEN - ength of LEN 

98 ! Implicit Input: 

99 ' 

00 ! None. 

01 ! 

30 ' Output: 

0 ! | 
304 ! None. 
305 ; 
$09 Implict output: 

308 ‘ None. 

09 

} 
} 
} 
i 


BEGIN ! Start of CLUSMSG_ACK_PLEASE _HANDLER 


: Sbblock CCLMACK_K_SIZE], 
NOD : $ref_bblock, 
STATUS; 


i Check the version number of the message. If the message is from any other version, 
simply ignore it. 


if .CLM CCLM_B_DS_VERSION] NEQ CLMACK_K_DS_VERSION 
RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘CLM__ACK mismatch"); 
Tell the requestor everthing we know 
CLUSMSG_STATE_SEND (.CLM CCLMACK_L_CSIDJ); 
} Fill in the ack message header 
MSG FeLR-8-fen co OPC$_X_CLUSMSG; 


= G 
MSG CCLM"B~CLM_CODE = CLM_~ACKNOWLEDGEMENT; 
MSG CCLM~B-DS_VERSION)] = CLMACK_K_DS_VERSION; 
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1 
usmsg_ack_please 1 


1986 92:80:37 — LGpcom. SacSecusmse-e32:1 


3: 
“SYSTEMIDL; 
“SYSTEMIDHJ: 


If we haven't talked to this guy before, then request an acknowledgement from him 


' Clear so that we can 
! request an acknowledgement 


-PSECT SPLITS,NOWRT,NOEXE,2 
eASCII \CLM__ACK mismatch\<0><0><0> 


LONG 17694737 
-ADDRESS P.AAF 


cl 

3 33 MSG [CLM_B_SW_ VERSION) = OPCS$K_SW_VERSION; 
; MSG [CLM_W_LENGTH = CLMACR_K_SIZE; 
: 4 40 MSG LCLM_W_FILL_1 = Q; 
; *? * MSG TLM_L-CSIDJ = ,LCL_CSID; 
; ¢3 0 ‘8 Fill in the ack message from the local node info 
$ 49 0345 MSG CCLMACK_L_CSID] = .LCL_NOD CNOD_L_NODE_CSID 
3 50 0 ‘8 MSG LCLMACK_L_SYSTEMIDLJ = .LCL_NOD ROD_L-NODE 
> 351 0 7H MSG CCLMACK-WISYSTEMIDH] = .LCLINOD CNOD-W-NODE 
3 5 0 4 } Send the acknowledge message back to from where it came 
H 2 tet CLUSCOMM_SEND (.CLM CCLMACK_L_CSID], CLMACK_K_SIZE, MSG); 
3 7 b3e8 
; 8 beee ! 
: 359 0355 2 IF (NOD = CLUSUTIL_FIND_NOD_BY_CSID (.CLM CCLMACK_L_CSIDJ)) NEQ 0 
; 360 0356 THEN 
3 61 0357 BEGIN 
; 0358 3 IF .NOD CNOD_B_STATE] EQL NOD_K_STATE_START 
3 0359 THEN 
$ 64 0360 4 BEGIN 
; 365 0361 4 NOD CNOD_V_ACK_PEND] = FALSE; 
; 366 036¢ 4 CLUSMSG_ACR_PLEASE (.NOD); 
: 367 0363 3 END; 
: 368 0364 2 END; 
: 369 0365 § 
: 370 0366 RETURN; 
s 357i 0367 1 END; 
74 61 6D 73 69 6D 20 48 43 41 SF SF 4D 4C 43 00034 P.AAF: 

00 00 00 68 63 4 

010E0011 00048 P.AAE: 
00000000" 0004C 
PSECT S$CODE$,NOWRT,2 
0004 00000 -ENTRY Sh OES AUR ACR PLEASE JAOLER Save R2 

35 18 Cs Boog SUBL2 #24, SP 

5 08 AC 00 0000 OVL CLM, R2 

02 02 A2 91 00009 CMPB = 2 (RO), #2 

0D 13 0000D EQL 1$ 
0000" CF 9F QOODF PUSHAB P.AAE 
04 AC DD 00013 PUSHL BUFFER_DESC 
00006 CF 02 FB 00016 CALLS #2, DUMP_LOG_FILE 
04 Bete RET 
0c A2 DD QOOIC 1$: PUSHL 12(R2) 
0000vV CF 1 4 OO1F CALLS #1, CLUSMSG_STATE_SEND 
6E pats F B 8658 MOVW MS 
02 AE 00160902 8F DO 00029 MOVL #1444098, mSG+2 
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120 bytes, Routine Base: SCODE$ + 0096 


; Routine Size: 
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yo%~000 clusmsg_ack_please 12-8671 382 9:80:37 OPCOM.SRCJCLUSMSG.B32;1 . (6) 
; ie 0 re: } GLOBAL ROUTINE CLUSMSG_CLM_NOTIFY_HANDLER (BUFFER_DESC : Sref_bblock, CLM : $ref_bblock, LEN) : NOVALUE = 
: 375 0 50 1 tee 
: f q} ! } Functional description: 
: 378 6 ig a This routine is the handler for all simple messages received from remote nodes. Simple 
; 379 0374 1! messages are those which merely need to be logged and sent to interested operators. 
; 380 0375 1! 
Oe ite 
: 38 0 ne 1! BUFFER_DESC = pointer to pensege from remote node, including $SNDOPR header 
5 o¢ 0379 1! CLM - ointer to CLMRQCB structure 
: +H 8 $y : LEN = ength of LEN 
: 44 0382 : ; Implicit Input: 
wo te ipe o a. 
: 391 0386 1 | Output: 
; 0387 1! 
eit ee tie pee 
: $e, Bene : Implict output: 
; 397 3444 ae Some accounting data will be updated 
3 $05 Beez : to reflect the receipt of the message. 
: 400 0395 1 ! Side effects: 
: 401 0396 1! 
ES bot te fp oe 
: 404 0399 1 ! Routine value: 
: 405 0400 1! 
; 406 0401 1! None. 
. eee 
: 409 0404 2 BEGIN ! Start of CLUSMSG_CLM_NOTIFY_HANDLER 
Be BB soca 
> 412 0407 ace : $ref_bblock, ' RQCB data structure 
; 413 0408 2 OcD : Sref_bblock, ! OCD data structure , 
3 6416 0409 2 OCD_ COUNT : LONG, ! Count of OCDs in OCD List 
3 «6415 0410 2 OCD_ INDEX : LONG, !' Index into OCD_VECTOR ; 
: 416 nell OPER COUNT : LONG, ! Count of operators in operator List 
3 417 aig STATOS : LONG; 
: 215 Ocia 3 
: 420 0415 i Check the version number of the message. If the message is from any other version, 
; rh 8248 simply ignore it. 
; ? 5 $18 iF .cun CCLM_B_DS_VERSION] NEQ CLMRQCB_K_DS_VERSION 
: $s? ° 9 RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘clm notify mismatch’); 
: : 7 Be ; ! Allocate an RQCB and convert the message RQCB into the new RQCB 
: £38 0424 2 iF NOT CLUSMSG_CONV_CLM_ROCB (.CLM, RQCB) 
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THEN 
RETURN DUMP_LOG_FILE (.BUFFER_DESC, ascid_INVALIDROQCB); 


' 
i Lo og it, and send it to all interested operators. 
Every operator in the data base is a candidate for the message. 
OCD_ INDEX = MAY¥_SCOPE; 
WHICE (.OCD_INDEX GEQ MIN_SCOPE) DO 
BEGIN 
Scan the OCD List for each class of operator. 
OCD_COUNT = .OCD_V CTOR Ct. OCD_INDEX = 1) * 2 + 1]; 
OCD = .OCD_VECT i. samen 1) * 2); 
WHILE (.0CB_COUN T GTR ° 
2 BEGIN 
4 i Noti fy every operator in the OCD's operator List. 
? ! Also log the message for each OCD. 
4 RQCB CRQCB_L_OCD] = .OCD; ! e. OCD address 
4 LOG_MESSAGE %.RQCB); ' Log the message 
4 NOTIFY LISTED OPERATORS (.RQCB); i Inform the operators 
4 OCD_COONT = .OCD_ COUNT - i; ' shad operator count 
4 OCD = .0CD COCD_C_FLINK); ' Get next OCD address 
: OCD_INDEX = .OCD_INDEX = 1; 
§ END; 
2 Free the racb 
5 DEALLOCATE_RQCB (.RQCB); 
§ RETURN; 
1 END; ! End of CLUSMSG_CLM_NOTIFY_HANDLER 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


D 6C 63 00050 P.AAH: .ASCII \clm notify mismatch\<0> 
8 63 74 61 QO005F 
010E0013 00064 P.AAG: .LONG 17694739 
00000000" 00068 -ADDRESS P.AAH 
-EXTRN ASCID_INVALIDRQCB 
-PSECT S$CODE$,NOWRT,2 
003c 00000 ENTRY ELUSRSS_CLA_SOT EY WAGLER, Save R2,R3,R4,- 
5 04 cé 000 SUBL2 #4, S 
5 0 AC D 000 OVL CLM, R2 
0 02 A2 91 9009 CMPB sO (R2), #2 
06 13 00000 BEQL 1$ 
0000" CF 9F QOOOF PUSHAB P.AAG 
10 11 00013 B 2$ 
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; Routine Size: 126 bytes, Routine Base: S$CODE$S + O10E 
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OPCSCLUSMSG 16-Sep-1984 AX=11 Bliss-32 V4.0-74 Page 15 
v04- clusmsg_ack_please 14-Sep eats 93: $); 2 OPCOM.SR ROTEL USMSG. B3084 : (6) | 
4006 8F BB 15 1$: PUSHR 4eMc R2,S + 0424 | 
0000v cr é FB 1 CALLS , Usmec _CONV_CLM_RQCB : | 
D f IE BLBS 4 : 
00006 CF SF PUSHAB 4&SCID_INVALIDROQCB ; 0426, 
04 AC DD 00025 2$ PUSHL BUF : 
00006 ¢ 0 fe 0 . cays #2, DUMP_LOG_FILE 5 
5 000000006 8F 00 $5 : 3$: MOVL #MAX X_SCOPE, OCD_INDEX > 0431. 
& D 00 MOVL + 0445 | 
000000006 8F D| 00 8 4$: CMPL - BENDEX, #MIN_SCOPE : 0432 | 
50 52 1 7 004] ASHL OCD_ INDEX > 0437. 
0000GCF40 p 45 MOVL ob VECTORCAEROT. OCD_ COUNT : | 
50 52 01 0048 ASHL #1, OCD_INDEX, RO : 0438 
54 0000GCF40 D0 O004F MOVL ocb -VECTOR-BCROJ, OCD : 
55 05 00055 5$: TSTL OCD-COU + 0439) 
19 15 90037 BLEQ 6$ ~ : 
24 «A 54 D0 00059 MOVL OCD, 36(R3) + 0445) 
6— DD 0005p PUSHL RQCB + 0446) 
00006 CF 01 FB 0005F CALLS #1, LOG_MESSAGE : 
6E DD 00064 PUSHL  RQC + 0447) 
00006 CF 01 FB 00066 CALLS #1, NOTIFY_LISTED_OPERATORS : | 

55 D7 00068 DECL  OCD_COUNT + 0448 
54 64 D0 00060 MOVL (OCB), OCD : 0449 | 

E3 11 00070 BRB + 0439 
2 7 00072 6$: —-DECL ~—«OCD_INDEX : 0451 | 
C2 11 00074 BRB 4$ : 0432 | 
6E DD 00076 7$ PUSHL  RQCB > 0456. 
00006 CF 01 FB 00078 CALLS #1, DEALLOCATE_RQCB : 
04 00070 RET : 0459 
i 
| 
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v04- CLUSMSG_CONV_CLM_ROCB (CLM, RET_ROQCB) 14-Sep-1984 12:50:37 OPCOM.S Bae CLUSMSG.B32;1 (7) 
: reg 169 : GLOBAL ROUTINE CLUSMSG_CONV_CLM_RQCB (CLM : Sref_bblock, RET_RQCB) = ZSBTTL "CLUSMSG_CONV_CLM_ROCB (CLM, 
; 468 462 1 !++ : ‘ 

; 469 465 1 ! Functional description: 

; 470 0464 1! 

s 671 0465 1! Convert a CLMRQCB to a local RQCB 

; 47 0466 1 | 

: 47 0467 1! Input: 

; 474 0468 1! 

; 475 0469 1: - Pointer to CLMRQCB structure 

8 rth Beet : RET .RQCB = Address of longword to receive address of allocated RQCB 

; 4678 0472 1 Implicit Input: 

; 479 0473 1! 

; 480 0474 1! None. 

> 481 0475 1! 

; 48 0476 1: Output: 

; 48 0477 1! 

3; 6486 0478 1! None. 

; «4485 0479 1: 

>; 486 0480 1 | Implict output: 

: 4687 0481 1! 

>; 488 0482 1! None. 

; 489 0483 1! 
; 490 0484 1 | Side effects: 

> 491 0485 1 | ‘ 

; 492 0486 1} Data structure will be allocated 

: 493 0487 1: 

> 494 0488 1 ! Routine value: 

: 4495 0489 1! ; 

; 4696 0490 1: Success or failure 

; 9 0491 1 i- 

; 498 0492 1 

; 499 0493 2 BEGIN ! Start of CLUSMSG_CONV_CLM_RQCB 

: 500 0494 2 
; 501 0495 2 LOCAL 
: 502 0496 2 LEN : Lone 
3 30> 0497 2 E0B : LONG, 

; 504 0498 2 PTR : on _bblock, 

s 505 0499 2 ROCB : $ref_bblock, 

: 506 0500 § RQCBUF : $ref_bblock, 

3 $07 0501 STATUS : LONG? 

; 508 b208 2 

; 509 $28 ‘ 

s 310 504 ' Set the return RQCB to null 

s S13 0505 ! 

3s Di 0506 -RET_RQCB = 0; 

2 Bis B20. ! : A 

; 318 209 ! Make sure that it is an RQCB in the message 

; 516 $395 RoceuF = CLM CCLMROCB_T_RQCB_OVERLAY]; 

: iz 0511 IF ,ROCBUF CROCB_W_SIZEJ NEQ-ROQCB_K_SIZE 

: 215 218 -RQCBUF CROCB_B_TYPE] NEQ RQCB_K_TYPE 

: 259 514 N 

s Sel 515 RETURN FALSE; 

s Sée 0516 ! 


<oO 


———--—— 


Find first open paren 
Find first carriage return (gotta have one!) 


or if paren after first <CR> 
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¥06-600 CLUSMSG_CONV_CLM_RQCB (CLM, RET_ROCB) 1o-808-138e 93:84 :3 OFCOM. SRCJCLUSMSG.B32;1 . (7) 
3 Ses 0517 ! Next thing, allocate an RQCB and cop the most of the CLM RQCB to the new RQCB, 
; ; ¢ 0318 taking care not to overwrite the RQ header data 
; 6 520 euischen” DS (RQCB_K_TYPE, RQCB); 
; 2 4 09 1 2 CHSMOVE TROCB_K_OVERLAY_SIZE, RQCBUF CROCB_T_OVERLAY], RQCB CROCB_T_OVERLAY]); 
3 $8 Be Take all of the character strings appended to the CLMRQCB and hang them from the RQCB 
; é 1 0525 PTR = CLM CCLMRQCB_T TEXT]; ! Pointer to next data in text area 
; 236 b2 § £0B = .CLM + .CLM TCCM_wW_LENGTHI; ! Pointer to last byte +1 of text area 
3 338 B2 4 If the original had an MCB, make a new MCB 
; 536 0530 2 IF (LEN = .RQCBUF CRQCB_L_MCBJ) NEQ 0 
s Sar 0531 THEN 
; 538 05 ; BEGIN 
3 SP 05 LOCAL 
: 540 0534 FAO_DESC : VECTOR fee LONG], 
> 541 0535 FAO_BUFF : VECTOR COPCSK_MAXMESSAGE, BYTE], 
: a 0536 MCB : $ref_bblock, 
; «54 0537 3 NOD : $ref_bblock, 
; «544 0538 3 ; 
; 545 0539 3 IF (NEXT = .LEN + .PTR) GTRU .EOB 
; 546 0540 3 
s S47 0541 4 BEGIN 
; 548 p26 4 DEALLOCATE_RQCB (.RQCB); 
; 549 0543 4 RETURN FALSE; 
; 530 0544 3 END; 
; 551 0545 3 ALLOCATE_DS (MCB_K_TYPE, MCB); 
; 552 0546 3 RQCB CROTB_L_MCB] = .MCB; 
s 3s 0547 3 MCB CMCB_L-ROCB) = .RQCB; 
; 554 0548 3 MCB CMCB_L_MSGID) = .CLM CCLMRQCB_L_MCB_MSGID); ! Restore message id 
; 22? Bese 3 MCB CMCBLLISTATUS] = .CLM CCLMROCB_C_MCB_STATUSJ; : and status 
s Dor 0551 : ' If the message is a standard header messege. then readjust it so that we store the local 
; 558 bees 3 ! time at the front and record the remote time later in the message. 
; $59 0553 3 ! We check to make sure it hasn't been adjusted already, as can happen if the request was 
3 ee beee 3 being passed around. 
$ 206 0556 ; IF CHSEQL (20, UPLIT BYTE ("222222222%% OPCOM '), 20, .PTR+1) 
; 56 0557 THEN 
; 564 0558 4 BEGIN 
; 565 0559 4 LOCAL 
i . 0560 4 
3 2 0561 4 
3 > 05 ¢ 4 
; > 05 4 
Bh 0564 4 
; 3 0565 4 
,% 05 $ 4 
3 > 05 5 
. > 0568 5 
; 3 0569 5 
5 3 B23 0 
te 571 
ee 05 ¢ 
>. 3 05 6 


66 PAR, CR; 

67 6 PAR = CHSFIND_CH (.LEN, .PTR, %C°("); 

68 6 CR = CHSFIND_CH (.LEN, .PTR, 13); 

69 6 IF .PAR EQL 0 ' If no paren 
70 6 0 

71 6 -PAR GTR .CR ! 

i; 6 THEN 

7 6 BEGIN 

74 6 FAO_DESC fo} = OPCS$K_MAXMESSAGE; 

75 6 FAO_DESC (C1) = FA 3 

76 7 NOD™= CLUSUTIL_FIND_NOD_BY_CSID (.RQCB CRQCB_L_CSID)); 
77 7 IF .NOD EQL 0 

78 7 THE 

79 7 BEGIN 


6 
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V04=000 CLUSMSG_CONV_CLM_RQCB (CLM, RET_ROQCB) 14-Sep-19 4 13:80:39 {OpcOM. SRC CLUSMSG.B32;1 42 (7) 


<o 


NEXT; 
IF (NEXT = .LEN + .PTR) GTRU .EOB 
THEN 


BEGIN 
DEALLOCATE_RQCB (.ROQCB); 
RETURN FALSE; 


END; 
Mo (STATUS = OPCSGET_VM (RQCB CRQCB_L_TEXT_LEN], RQCB CROCB_L_TEXT_PTR])) 


ve 
SAF SOOONOUSWA “OOOO US WN 


$signal_stop (.STATUS); 
CHSMOVE (.LEN, .PTR, .ROQCB CROCB_L_TEXT_PTR]); ' Copy the message 
4h = NEXT; ! Update the output pointer 


: 80 pare 6 WRITE LOG FILE (SHARE_FAO_BUFFER (ZASCID ‘Unable to find NOD for CSID !XL", .RQCB CRQCB_L_CS ‘ 
3 81 575 6 DEALLOCATE_RQCB (.RQCB); : 
: & 8278 peru FALSE; : 
: 84 P g208 SFAO (XASCID "!AD!XD!AD (from node !6AS at !AD)!AD', FAO_DESC, FAO_DESC 3 
; 585 057 21, .PTR, 0, 13, .PTR+44, NOD ENOD_O_NAME_DEST], 23, .PTR+21, .LEN-57, . ; 
; 586 0580 LEN = .FAO_DESC (0); ; 
; 287 0581 PTR = FAO_BUFF; ; 
; 588 Beng 4 ; : 
; 589 058 ; END: : 
; 590 0584 MCB CMCB_L_TEXTLEN] = .LEN; ; 
; 23) p28? 4 con (STATUS = OPCSGET_VM (MCB CMCB_L_TEXTLENJ, MCB CMCB_L_TEXTPTR])) : 
; 298 0587 $signal_stop (.STATUS); ; 
; 594 0588 CHSMOVE (.LEN, .PTR, .MCB CmcB_L_TEXTPTRI); ' Copy the message : : 
3 3 0589 PTR = .NEXT; ! Update the output pointer 3 
>; 596 0590 2 : ; 
; 2or 0591 : ; : 
; gee B26 , If the original had an operator name, make a new operator name : 
; 600 0594 2 IF (LEN = .RQCBUF CRQCB_L_OPER_LEN]) NEQ 0 ; 
; 601 0595 THEN : 
: 602 0596 BEGIN 3 
; 603 0597 LOCAL | ; 
: 604 0598 ; NEXT; : 
; 605 0599 IF (NEXT = .LEN + .PTR) GTRU .EOB 3 
; 606 0600 3 THEN : 
; 607 0601 4 BEGIN : 
; ¢ 0602 4 DEALLOCATE_RQCB (.RQCB); : 
; 609 0603 4 RETURN FALSE; : 
; 610 0604 3 END; : 
; 61 0605 4 IF NOT (STATUS = OPCSGET_VM (RQCB CRQCB_L_OPER_LENJ, RQCB CROCB_L_OPER_PTRI)) ; 
s #6) 0606 3 THEN : 
, 81 0607 3 $signal_stop (.STATUS); : 
; (61 0608 3 CHSMOVE (.LEN, .PTR, .RQCB CRQCB_L_OPER_PTR]); ' Copy the message ; 
: 61 0609 3 PTR = .NEXT; ! Update the output pointer : 
; «(61 0610 2 END; : 
; 61 0611 2! : 
; : 9 § If the original had text field, make a new one : 
3 62 0614 2 IF (LEN = .ROCBUF CRQCB_L_TEXT_LENJ) NEQ 0 ; 
; 62 0615 ¢ THEN F 
: 2 0616 BEGIN : 
: 62 6 LOCAL : 
3; 62 : 
; @e : 
gs ¢¢ 4 : 
i: 62 4 : 
3 ¢ 4 $ 
; 3 : 

| : 


APAAAGAS APAOAOAAAAAAAAAAAAAAAS 
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v04-000 CLUSMSG_CONV_CLM_RQCB (CLM, RET_RQCB) 19-S00- 138 93:8): 33 OPCOM SRCICLUSMSG_B32: 1 ” (7). 
; 637 0631 ! 3 
3 ? 3 ? ¢ Set the return RQCB to the one we allocated : 
; 640 0634 -RET_RQCB = .RQCB; : 
: 641 0635 ; 
> 64 06 6 RETURN TRUE; F 
> 66 0637 1 END; ! End of CLUSMSG_CONV_CLM_RQCB ; 
.PSECT $PLIT$,NOWRT,NOEXE,2 : 
50 4F 20 20 25 25 25 25 25 25 25 25 25 25 25 OQ006C P.AAI: . ASCII \%2XX4%XX%%X OPCOM \ ; ; 
20 20 4D 4F 43 00078 : ; 
20 64 6& 69 66 20 6F 74 20 65 6C 62 61 6€ 55 00080 P.AAK: .ASCII \Unable to find NOD for CSID !XL\<0> : ; 
58 21 20 44 49 53 43 20 72 6F 66 20 44 4F 4E 0008F : | ; 
00 4C 0009E : : 
O10E001F OOOAO P.AAJ: .LONG 17694 751 : | : 
00000000" O00A4 -ADDRESS P : | ; 
66 28 20 20 20 20 44 41 21 44 25 21 44 41 21 QOOAB P.AAM: .ASCII TAD RD IAD (from node '6AS at !AD)!AD- 3 ‘ 
61 20 53 41 36 21 20 65 64 6F 6E 20 6D 6F 72 00087 \<0> ; : 
00 44 41 21 29 44 41 21 20 74 00006 : : 
0100027 O00D0 P.AAL: .LONG 17694759 : | : 
00000000" 00004 “ADDRESS P.AAM ; | : 
~EXTRN preceons OPCSGET_VM ° 
“EXTRN LIB$STO | : 
.PSECT S$CODE$,NOWRT,2 : 
OFFC 00000 ~ENTRY Bo RR as CONV_CLM_RQCB, Save R2,R3.R4,R5,R6,-; 7 ; 
SE F7EC CE 9€ 00002 MOVAB wT (SP a SP ; | : 
08 BC D4 00007 CLRL @RET_ROQCB : 0506 | 2 
58 04 AC DO OO00A MOVL  CLM,~R11 : 0510. : 
57 0c AB 9E OOOOE MOVAB 12(R11), RQCBUF : Py 
0094 28F 08 A7 Bi 00012 CMPW =: BCROCBUF), #148 : 0511 ; 
OA 12 00018 NEQ 1$ : | ; 
00000000G_ 8F OA A7 08 00 Fo OO1A CMPZV #0, #8, 10(RQCBUF), #ROCB_K_TYPE : 0513. 3 
93 13 00024 1$: BEQL 2$ : : 
0172 3 000 6 BRW 17$ : | F 
04 AE 9F 00029 28: PUSHAB RQCB ; 0520. ; 
000000006 8F DD 000e2C PUSHL #ROCB_K_TYPE : | F 
00006 cf 02 F 00 g CALLS #2, ACLOCATE_DS : | ; 
8 04 AE 0 MOVL Ro(B. RB ; 0521. ; 
10 AB 10 A? 0084 8F 00 : MOVC3 #1 16(RQCBUF), 16(R8) : : 
56 0OA8 CB 9E 0004 MOV 168(R11), PTR ; 0525 | ; 
50 04 AB C 00048 MOVZWL 4(R11), RO : 0526 | : 
6E 58 50 Ci 0004C ADDL RO Rif, €0B F : 
5A 6c A? 09 0050 MOVL 108(RQCBUF), LEN ; 0530 ; 
03 12 00054 BNEQ 3$ : | : 
00D? 31 00056 BRW 10$ : : 
59 SA 56 C1 00059 3s: ADDL3 PTR, LEN, NEXT > 0539 | : 
6E 59 D1 0005p CMPL NEXT, E0B : : 
6 1A 8060 BGTRU 7 : ; 
08 AE OF 0062 PUSHAB MCB > 0545 ; 
000000006 8F DD 0006 PUSHL #MCB_K_TYPE : ; 


| é 
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CLUSMSG_CONV_CLM_RQCB (CLM, RET_ROCB) 14-Sep-1984 OPCOM. SR SMSG.B32; 
00006 CF 02 FB 000 CALLS #2, ALLOCATE_DS : 
gf 08 AE D 8 MOVL MCB, R4 : + 0546 
6c AB 24 D 74 MOVL 4, 108(R8) : 
4 A 8 D 78 MOVL RB. 36(R4) t 0547 
AG 00AO CB 00 0007 MOVL 160(R11), 44(R4) : 0548 
AG 00AS (CB 90 MOVL WgGcRt1) « 40(R4) : 0549 
01 Ab 0000" CF 14 0 CMPC3 #20, P.AAI, 1(PTR) + 0556 
7C 12 0008F BNEQ 9$ : 
66 SA : 3A 00091 LOCC #40, LEN, (PTR) + 0561. 
12 00095 BNEQ 4$ : | 
1 04 00097 CLRL sR : | 
52 51 pO 0099 4$: MOVL 1, PAR : | 
Ae SA Op 3A 0009C Locc }=«_s# 18: LEN, (PTR) + 0562. 
92 12 000A0 BNEQ 5$ : 
1 D4 OOOA2 CLAL sR : | 
3 rf OOOA4 5$: TSTL PAR ; 0563. 
05 13 000A6 BEQL 6$ : 
51 38 D1 000A8 CMPL PAR, CR + 0565. 
: 15 000AB BLEQ  9$ : | 
FB AD 0800 &8F 3C OOOAD 6S: MOVZWL #2048. FAO_DESC + 0568 
FC AD OC AE 9E 00083 MOVAB O BUFF, FAO_DESC+4 : 0569. 
14 AS DD 00088 PUSHL OeR : 0570. 
00006 CF 01 FB 000BB CALLS #1, CLUSUTIL_FIND_NOD_BY_CSID ; 
52 50 pO 000C0 MOVL RO, NOD : | 
16 12 000C3 BNEQ $ + 0571. 
146 A8 DD 000C5 PUSHL 20(R8) + 0574 
0000' CF 9F 000C8 PUSHAB P.AAJ : | 
0000G CF 02 FB OOOCC CALLS #2, SHARE _F AO_BUFFER : 
50 DD 00001 PUSHL R : 
00006 CF 01 FB 00003 CALLS #1, WRITE_LOG_FILE : 
0089 31 000D8 7s: BRW 12$ : 0575. 
39 a6 9F O00DB 8$: PUSHAB 57(PTR) : 0579 | 
C7 AA 9F OOODE PUSHAB =57(LEN) ; 
15 AG 9F OO0E1 PUSHAB 21(PTR) : | 
17 DD OOOE4 PUSHL : 
30 A2 9F OO0E6 PUSHAB 48(NOD) ; 
2c Ab 9F O00E9 PUSHAB 44(PTR) : 
OD DD OO0EC PUSHL ; 
7E D4 OOOEE CLRL. = (SP) ; 
56 DD 000FO PUSHL PT : 
15 DD 000F2 PUSHL #21 : 
F8 «AD OF OO0F4 PUSHAB FAO_DESC ; 
F8 AD 9F OO0F7 PUSHAB FAO~DESC ; 
0000' CF 9F OOOFA PUSHAB P.AAL ; 
000000006 00 Ob FB OOFE CALLS #13, SYS$FAO : 
5A F8 AD DO 9019 MOVL FAO_DESC, LEN : 0580. 
56 OC AE i 0109 MOVAB FAO-BUFF, PTR : 0581 
30 AG 5A DO 00100 98: MOVL : N> 48(R4) : 0584 
34 AG 9F 00111 PUSHAB (R4) : 0585 | 
0 Ad 9F 00114 PUSHAB 48(R4) ; | 
00006 cf ; FB 00117 CALLS #2, OPCS$GET_VM ; 
B dO 0011C MOVL R STATUS ; | 
5e 5 5 O11F BLBC_ STATUS, 148 : | 
34 BG 66 A 28 001 3 MOVC3 LEN, (PTR), @52(R4) > 0588 | 
6 9 BO 001 MOVL next P : 0589 
SA 7C A7 DO O012A 108: MOVL 124(RQCBUF), LEN > 0594. 
24 13 OO12E BEQL ‘118 : | 


H 6 
OPCSCLUSMSG 16-Sep-1984 01:21: AX-11 Bliss-32 V4.0-74 
9042500 CLUSMSG_CONV_CLM_ROCB (CLM, RET_ROCB) 12-8087 382 03:85:89 OP COM. SAC TEL USMNC O3004 
59 SA C1 00130 ADDL3 PTR, LEN, NEXT 
6E 35 b1 134 CMPL NEXT, EOB 
A 00137 BGTRU 1 
0080 C8 OF 00139 PUSHAB 1 (RB) 
C AB SF 00130 PUSHAB 124(R8) 
00006 CF : F 140 CALLS #2, OPCSGET_VM 
2 DO 0014 MOVL RO, STATUS 
B E 0148 BLBC STATUS, 14$ 
0080 08 be A 28 00148 MOVC3 LEN, (PTR), @128(R8) 
56 59 DO 00151 MOVL Next 
SA 0084 (7 bg 0154 11$:  MOVL  132(RQCBUF), LEN 
8 1 1 9 BEQL 16$ 
57 SA 6 C1 158 ADDL3 PTR, LEN, NEXT 
6E 57 01 0015F CMPL Next, E08 
09 1B 00162 BLEQU 138 
8 DD 00164 128: PUSHL RB 
00006 CF 4 FB 00166 CALLS #1, DEALLOCATE_RQCB 
E 11 00168 BRB 17$ 
0088 C(B& OF 90160 13$: PUSHAB 136(RB) 
0084 ¢8 9F 00171 PUSHAB 132(R8) 
00006 CF 92 FB 00175 CALLS #2, OPCSGET_VM 
58 0 DO 0017A MOVL RO, STATU 
OA 5B £8 00170 BLBS _—« STATUS, 
5B DD 00180 148: PUSHL STATUS 
000000006 00 01 FB 00182 CALLS #1, LIBSSTOP 
g4 00189 RET 
0088 08 66 SA 8 0018A 15$: MOVC3 LEN, (PTR), 2136(R8) 
56 57 DO 00190 MOVL NEXT, PTR 
08 BC 58 DO 00193 16$:  MOVL 8, @RET_ROCB 
50 01 DO 00197 MOVL #1. RO 
04 0019A RET 
50 04 00198 17$: CLRL = RO 
04 0019D RET 
; Routine Size: 414 bytes, Routine Base: $CODE$ + 018C 
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OPCSCLUSMSG 1b-se -1984 01:21: iss- 
v0s-000 CLUSMSG_CONV_CLM_RQCB (CLM, RET_ROQCB) 1273851 9be 93:85:37 OPCOM. SRC ICLUSMSG.B32; 


i Check the version number of the message. If the message is from any other version, 
simply ignore it. 


iF yns9 Ccolm_b_sw_version] NEQ opc$k_sw_version 
RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘clm software mismatch’); 


i Check the actual Length of the toy vs. the length stored in the 
e 


} message. If any difference, ignore message 


H ot? O38 } GLOBAL ROUTINE CLUSMSG_HANDLER (buffer_desc : $Sref_bblock) : NOVALUE = 
D4 | 
; geo 640 1 !44 
; 648 641 1 ! Functional description: 

> 649 0642 1! 

H o20 Bet7 : This routine processes all messages alleged to have come from remote nodes (pius local broadcasts). 

3 626 0645 1 ! Input: 
s @ Boe8 1! 
; 654 0647 1! BUFFER_DESC : The address of a guadword buffer descriptor that 
3 $2? sek : describes the buffer containing the message. 
5 £28 0686 1! Implicit Input: | 
; 658 0651 1! 
: 659 Bo26 1! None. 
; 660 0655 1! 
: 661 0654 1 ! Output: 
3 666 0655 1! 
; 66 0656 1! None. 

; 664 0657 1! 
; 665 0658 1°! Implict output: 
; 666 0659 1! 
: 667 0660 1! None. 

; 668 0661 1! 

; 669 06 1! Side effects: 

; 670 06635 1! 
; 671 0664 1! None. | 
3 67 0665 1! ; | 
s 67 0666 1 ! Routine value: | 
; 674 0667 1! 

s 675 0668 1! None. 

; 676 0669 1 !-- 
: 677 0670 1 

; 678 0671 3 BEGIN ! Start of CLUSMSG_HANDLER 
; 679 067 
; 680 067 § LOCAL 
; 681 0674 len, ! Length of message without the $SNDOPR header 
; 68 0675 2 msg : Sref_bblock, ! Pointer to reply command message | 
; 68 0676 2 status; 

: 684 0677 2! 
; 685 bers Get a pointer to the regular part of the message, and compute the length. | 
; 687 0680 msg = .buffer_desc pgscsa_pointer + opc$k_comhdrsiz; ! Init the message pointer 

: 0681 lem = .buffer_desc Cdsc$w_length] - opc$k_comhdrsiz; ! Init the message pointer 

. ‘ 


if .msg Cclm_w_length) NEQ .Len 
THEN 


a — 


eo 


VOLSODO  ” §=—CLUSMSG_CONV_CLM_ROCB (CLM, RET_ROCB) 1bosenc1 984 93:80:37 — EObcom. Sac Secusmee.a3e-1 pose 65 
4 869? RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘clm Length mismatch’); 
oe Oe9? ; Perform some privilege and sanity checks on CLM messages 
a a Celm_b_clm_code] NEQ clm__rpybrd_local ! Local replies are checked in CLUSREPLY module 
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ENBEGIN 
BIND 
hdr = .buffer_desc Cdsc$a_pointer] : $bblock; ! Start of $sndopr header 
If not in a cluster, nothing to do but shout 
if NOT ~GLOBAL_STATUS CGBLSTS_K_IN_VAXc luster] 
' RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘clm message in non-cluster'); 
i Try to make sure that this is coming from the CLUSTER_SERVER process. Since process name _is 
' not 77s part of the SSNDOPR header, we will check that the sender has both the UIC [1,4] and 
! has all privileges enabled. This isn't completely solid, but someone with SETPRV would probably 
be able to circumvent any check we could make. 
if .hdr (4,0,32,0] NEQ -1 ! First longword of priv mask in $sndopr header 
; «hdr (8,0,32,0] NEQ -1 ! Second longword of privs 
; «hdr €12,0,32,0] NEQ %x‘'00010004' ! vlc of (1,4) 
' RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘clm privilege violation’); 
: i Find the sending node in the database. If we don't see it, then reconfigure. If we 
' still do not see it after a reconfigure, then discard the message. It is most likely 
from a node which has crashed and rebooted. 

i 
4 
4 
4 
4 
4 
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He uti. FIND_NOD_BY_CSID (.msg Celm_l_csid]) EQ. 0 
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BEGIN 

CLUSUTIL_CONFIGURE (); ! Might find the node 
404 IF CLUSUTIL_FIND_NOD_BY_CSID (.msg Cclm_l_csidJ) EQL 0 
741 RETURN; 
re 5 D; 
74 6 
744 7 
te 3 i Pa the request to the proper handler. 
747 0 CASE, zaee fclm, b_clm_code] 
748 1 “clm=_request_end_mark-1 OF 
150 § er 
751 4 my acknowledgement) : CLUSMSG_CLM_ACK_HANDLER (.buffer_desc, .msg, .len); 
75 45 clm_ =acknowledge_ please] : CLUSMSG-CLM-ACK-PLEASE_HANDLER (.buffer_desc, .msg, .len); 
75 6 clm="cancel) : CANCEL_CLM_AANDCER (.buffer_desc, .msg, .len); 
754 4 clm_ “Check operator) : OPRENABLE CLM HANDLER (.buffer_desc, .msg, .len); 
755 748 clm_—check_request] : REQUEST_CCM_CRECK_HANDLER (.buffer_desc, .msg, .len); 
75 749 clm="ciumbx] : CLUSASG CLA. “NOTIFY_ reetg f (.buffer_desc, .msg, .len); 
75 750 clm>“cluster] : CLUSMSG_CLM_NOTIFY_HANDLER (.buffer_desc, .msg, .len); 
758 751 clm="device] : CLUSMSG_CLM_NOTIFY— “HANDLER (.buffer_desc, .msg, .len); 
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16-Sep-1984 AX-11 Bliss-32 V4.0 354% 
G_CONV_CLM_RQCB (CLM, RET_ROCB) 14-8ep-1984 93; $5; Hy OPCOM. SRCICLUSMSG. B32;1 
clm__imp i OPERUTIL_CLM_IMP_ DISABLE (.buffer_desc, .msg, .len); 
clm__opren OPRENABLE . CLA_HARDLER (.buffer_desc, .msg, .len); 
clm__reply REPLY _CLM_HAN ste (;buffer-desc. .msg, .len): 
clm_ “reply, complete] : CANCEL at HANDLER (.buffer_desc, .msg, .len); 
clm_-request) : REQUEST CLA_HAND (.buffer_desc, .msg, .len); 
clm-—rpybrd] : CLUSREPCY ~RPVBROH (. buf fer_ “desc, -msg, .len); 
ctm__rpybrd local] CLUSREPLY_RPYBRD_ “LOCAL HANDLER (.buffer_desc, .msg, .len); 
clm__rpyno GLUSREPLT RPYNOT_HANDL (.buffer_desc, .msg, .len); 
clm_ =security} : CLUSMSG_CCM NOTIFY HANDLER (.buffer_desc, .msg, .len); 
elm. “shutdown SHUTDOUR. cURS HANDLER (.buffer_desc, .msg, .len); 
Let the unknown message handler figure out what to do with it. 
J RANGE .OUTRANEED t DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘unknown CLM_CODE in message’); 
RETURN; 
1 END; ! End of CLUSMSG_HANDLER 
-PSECT SPLITS,NOWRT,NOEXE,2 
77 74 66 6F 73 20 6D 6C 63 Q00D8 P.AAO: .ASCII \clm software mismatch\<0><0><0> 
00 00 00 68 63 74 61 6D 73 QO0DE7 
010E0015 OOOFO P.AAN: .LONG 17694741 
poppouly" a tie «ADDRESS P.AA 
74 67 6€ 65 6C 20 6D 6C 6 OOF8 P.AAQ: .ASCII \clm Length mismatch\<0> 
00 68 63 74 61 BO 8 
010E0013 O010C P.AAP: .LONG 17694739 
poypo0gy" 00110 «ADDRESS P.AAQ 
61 73 73 65 6D 20 6D 6C 63 00114 P.AAS: .ASCII \clm message in non-cluster\<0><0> 
74 73 75 6C 63 2D 6E 6F 6E€ 00123 
010E001A 00130 P.AAR: .LONG 17694746 
set tae 9 00134 -ADDRESS P.AAS 
9 69 72 70 20 6D 6C 63 00138 P.AAU: .ASCII \clm privilege violation\<0> 
00 6€ 6F 69 74 61 6C 6F 69 00147 
BS DE 00150 P.AAT: .LONG 17694743 
0000 099" 00154 -ADDRESS P.AAU , 
43 20 6€ 77 6F 6E 68 33 75 00158 P.AAW: .ASCII \unknown CLM_CODE in message\<0> 
73 73 65 6D 20 6E 69 3 45 00167 
010E001B 00174 P.AAV: .LONG 17694747 
00000000" 00178 -ADDRESS P.AAW 
-PSECT SCODES,NOWRT,2 
003c 00000 -ENTRY CLUSMSG “rat 7 Save R2,R3,R4,R5 
54 04 aC 00 00002 MOVL it FER R DES 
52 06 AG 26 ¢! 0006 ADDL3 #38 a msc 
55 64 0008 MOVZWL (R4S, L EN 
55 <8 § OO0E SUBL2 38 
09 03 A 001] CMPB = s-3(MSG), 
06 13 15 BEQL 1$ 
0000° CF 9F 00017 PUSHAB P.AAN 
45 11 00018 BRB 5$ 


roe is 
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OPCSCLUSMSG 1b-Se -1984 01:21: AX-11 Bliss-32 V4.0-74 Page 25 
904.000 CLUSMSG_CONV_CLM_ROCB (CLM, RET_RQCB) 12-8 08- 1 ope 93:8): 33 OPCOM. SRCJCLUSMSG.B32; . BS 
55 04 A2 10 00 FD 1D 1$: CMPZ2V #0, #16, 4(MSG), LEN : 0693 
6 BEQL © 2$ : 
0000' cf 9F PUSHAB P.AAP + 0695. 
7 11 00029 BRB 5$ : 
10 01 Ae 91 00028 28 CMPB  =s«A(MSG), #16 + 0699, 
51 1 00 F BEQL «6s 7$ : | 
53 06 Ad D 1 MOVL 4(R4), R3 : 0703. 
06 00006 CF : 99 5 BLBS  GLOBAL_STATUS+1, 3$ ; 0707) 
0000' cr F OOO3A PUSHAB P.AAR + 0709. 
; 11 09 E BRB 10$ ; 
FFFFFFFF © 8F 04 A3 D1 00040 3$ CMPL  4(R3), #1 : 0716) 
14 12 00048 BNEQ 4$ : 
FFFFFFFF © 8F 08 A3 01 4A CMPL 8(R3), #1 : 0718) 
OA 12 00052 BNEQ 4$ : 
00010004 8F 0c A3 D1 00054 CMPL  12(R3), #65540 : 0720) 
06 13 9003¢ EQL ¢$ ; 
0000' CF 9F 0055 4$: PUSHAB P.AAT : 0722) 
4F 11 00062 5$: RB 10$ : 
08 A2 DD 00064 6$: PUSHL 8(MSG) : 0728 
00006 CF 01 FB 00067 CALLS #1, CLUSUTIL_FIND_NOD_BY_CSID : 
50 D5 0006C TSTL RO ; 
12 12 0006E BNEQ 7$ : | 
00006 CF 00 FB 0007 CALLS #0, CLUSUTIL_CONFIGURE : 0731) 
08 A2 dD 90075 PUSHL 8(MSG) : 0732) 
00006 CF 01 FB 00078 CALLS #1, CLUSUTIL_FIND_NOD_BY_CSID ; 
50 D5 0007D TSTL RO ; 
01 12 0007F BNEQ 7$ ; | 
04 00081 RET F | 
13 00 01 A2 8F 00082 7$ CASEB 1(MSG), #0, #19 : 0740 
003E 0034 0028 00087 8$ <WORD 9$-8$,- : 
OOA 0048 005¢ 0008F 11$-8$,- ; | 
005 0028 O0A2 00097 128-88, ~ : 
007A 0070 0066 0009F 17$-8$,- : | 
00A2 0098 008E 000A7 15$-8$,- : | 
13$-8$.- : 
22$-8$,- : 
22$-8$,- : 
22$-8$,- 3 
9$-8$,- 3 
14$-8$,- F 
15$-8$.- ; 
16$-8$.- : 
17$-8$,- ; 
ta toe 3 
19$-8$.- : 
203-88. : 
1$-8$,- 
ta 3 
$-8$ 3 
0000" CF 9F OOOAF PUSHAB P.AAV : 0765— 
54 DD 908 10$: PUSHL R4 ; | 
00006 CF 02 FB 0008 CALLS #2, DUMP_LOG_FILE ; | 
04 OOOBA RET : 
24 BB OOOBB 11$: PUSHR #*M<R2,R5> > 0744 | 
4 DD 000BD PUSHL : | 
FC74 =sCF 03 FB OO0OBF CALLS #3, CLUSMSG_CLM_ACK_HANDLER ; 
04 000C4 RET ; 


3; Routine Size: 
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e383 poche. Chests V4.0=742 


OPCOM.SRCJCLUSMSG.B32; 1 
#*M<R2,R5> 
#3, CLUSMSG_CLM_ACK_PLEASE_HANDLER 
#*M<R2,R5> 
R4 


#3, REQUEST_CLM_CHECK_HANDLER 
#°M<R2,R5> 
#3, OPERUTIL_CLM_IMP_DISABLE 


#*M<R2,R5> 

#3, OPRENABLE_CLM_HANDLER 
#*M<R2,R5> 

#3, REPLY_CLM_HANDLER 
#*M<R2,R5> 

#3, CANCEL_CLM_HANDLER 
#*M<R2,R5> 

3, REQUEST_CLM_HANDLER 
#*M<R2,R5> 

3, CLUSREPLY_RPYBRD_HANDLER 
#*M<R2,R5> 

#3, CLUSREPLY_RPYBRD_LOCAL_HANDLER 
#*M<R2,R5> 

3, CLUSREPLY_RPYNOT_HANDLER 
#*M<R2,R5> 

#3, CLUSMSG_CLM_NOTIF Y_HANDLER 
#*M<R2,R5> 


#3, SHUTDOWN_CLM_HANDLER 
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OPCSCLUSMSG 1Ba56 -1984 AX-11 Bliss-32 V4.0 Page 27 
v04=000 CLUSMSG_RQCB_SEND (CSID, CLM_CODE, RQCB) 14- gep- 1984 9}: g}; 3 OPCOM. SRCICLUSMSG. g35: ° (3) 
; 78 p770 } GLOBAL ROUTINE CLUSMSG_RQCB_SEND (CSID, CLM_CODE, RQCB : Sref_bblock) = ZSBTTL 'CLUSMSG_ROQCB_SEND (CSID, CLM 
: 980 8956 1 i ‘Functional descripti 

; ! Functional description: 

: oR Bre 1 i Put an ROCB i Lf-relative f d send { de(s) 
; ut an nto a self-relative format, and send it to remote node(s 
: 784 p76 1! 

> «785 0777 1: Input: 

; 786 0778 1! 

3; 787 0779 1! CSID - Id of target node, -1 for broadcast to all nodes except local 
: 788 0780 1! CLM_CODE - Secondar pperat ten code 

; 789 0781 1 | RQCB Ss = Address o 5 ock 

: 790 14 1 i 

; 791 0783 1: Implicit Input: 

; 79 0784 1! 

; 79 0785 1: None. 

3; 794 0786 1: 

; 795 0787 1: Output: 

3; 796 0788 1: 

; 797 0789 1! None. 

; 798 0790 1! 

; 799 0791 1 Implict output: 

; 800 fae 1 i 

; 801 0793 1: None. 

: 80 0794 1! 

; 80 0795 1 ! Side effects: 

; 804 0796 1! ; 

; 805 0797 1! Messages will be sent to remote nodes. 

: 806 0798 1! 

; 807 0799 1 ! Routine value: 

; 808 0800 1} 

; 809 0801 1 ! Status from comm primitive. 

; 810 0802 1 i- 

3; 811 0803 1 

; als 0804 BEGIN ! Start of CLUSCOMM_SEND 

s 61 0805 

> «814 0806 LOCAL 

: 815 0807 BUFFER : a COPCS$K_MAXMESSAGE+RQCB_K_SIZE+256, BYTE], 

; 816 0808 2 LEN : 

; 817 0809 RQCBUF : Sref “pblock, 

; 818 0810 PTR : $ref_bblock, 

3; 819 0811 FINAL_STAT LONG; 

3 $30 Bais STATUS LONG: 

: 821 081 

; 822 0814 2! ; ; 

3 357 th : If not in a cluster we are done, return with success 

s 84S 0817 IF NCT .GLOBAL_STATUS CGBLSTS_K_IN_VAXcluster] 

; 826 0818 T 

3 827 0819 RETURN SS$_NORMAL; 

; 3 0820 ! be 

: 4 3 1 First thing, make sure that it is an RQCB 

3 tt o8 § IF .ROCB CROCB_W_SIZE] NEQ RQCB_K_SIZE 

; HG 0825 -RQCB CROCB_B_TYPE) NEQ RQCB_K_TYPE 

; 834 0826 THEN 
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; 5 . 7 $signal_stop (OPCS$_NOTRQCB); 

; 4 ? 5 : Next thing, copy the entire RQCB to the buffer 

; 839 0831 RQCBUF = BUFFER CCLMRQCB_T_RQCB_OVERLAY]; 

: Bey 8 § CHSMOVE (ROCB_K_SIZE, .ROCB, .ROCBUF); 

; erg 0834 ! Take all of the character strings hanging off the RQCB and append them to 

: Sti O8 5 the end of the buffer. 

; «845 8 5 PTR = BUFFER CCLMRQCB_T_TEXT]; 
; 846 0838 IF .RQCBUF CROCB_L_MCBJ-NEQ 0 | 
; 847 0839 THEN 
; 848 0840 BEGIN 
> 849 0841 LOCAL 
; 850 pees MCB : $ref_bblock; | 
3 851 084 MCB = .RQCBUF [ROCB_L_MCB); 

; 832 0844 BUFFER ECLMROCB_L_MCB-MSG10) = .MCB CMCB_L_MSGIDJ;_ ! Copy message id 

; 85 0845 3 BUFFER CCLMRQCB_L_MCB-STATUS) = .MCB CMCB_C_STATUSJ;! and status 

> 854 0846 LEN = .MCB CMCB_L-TEXTLEN); 

; 855 0847 3 CHSMOVE (.LEN, .MCB CMCB_L_TEXTPTRJ, .PTR); ' Copy the message : 

; 856 0848 ; PTR = .PTR + .LEN; ! Update the output pointer 

; set Base RQCBUF CRQCB_L_MCB) = .LEN; ! Replace MCB address with text length 

: 859 0851 s IF (LEN = .RQCBUF CROCB_L_OPER_LEN]) NEQ 0 

; 860 pb THEN 

; 861 085 BEGIN 

; 862 0854 CHSMOVE (.LEN, .RQCBUF CRQCB_L_OPER_PTRJ, .PTR); ! Copy the message ; 

; 863 0855 PTR = .PTR + .LEN; ! Update the output pointer 

; 864 0856 2 END; 

; 865 0857 2 IF (LEN = .RQCBUF CROCB_L_TEX1_LEN]) NEQ 0 

; 866 0856 ¢ THEN 

; 867 0859 BEGIN 

; 868 0860 4 IF ((,.RQCBUF CROCB_W_MSGTYPE] EQLU MSG$_OPRQST) AND 

; 869 0861 4 y( ROCBUF RQCB-B_RQSTCODE) EQLU OPC$_RQ_SECURITY)) | 
; Bo) peer ; ROCBUF CROCB_L_TEXT_LEN] = 0 ! Don't send raw messages for security alarm. 
: B78 0865 4 BEGIN | 
; 874 pa08 & CHSMOVE (.LEN, .RQCBUF CRQCB_L_TEXT_PTR], .PTR); ' Copy the message : 

; ers 0867 4 PTR = .PTR +, 3 ! Update the output pointer 

; 876 0868 3 END; 

s 8r7 0869 END; 

; a78 pae8 : j ; 

; 144 B83 Zero any remaining address fields, to prevent embarrasing mixups on the remote node. 

; «4881 0878 RQCBUF CROCB_L_OCD) = 0; 

: B82 087% ROCBUF [CROCB“L-OPER_PTR) = 0; 

; 88 875 ROCBUF [ROCB"L-TEXT-PTR} = 0; 

> B84 0876 2 ROCBUF CROCB"L-DSBLFLINK) = 0; 

; HH 144 ROCBUF CROCB_L_DSBLBLINK) = 0; 

3 rt 0879 , Put the cluster message header on top of the queue header of the RQCB 

3 $89 nt} LEN = .PTR = BUFFER; ! Compute final Length 

; 890 O88¢ BUFFER ECL 8 _RasTCODE] = OPC$_X_CLUSMSG; 

; «891 08 BUFFER CCLM_B-CLM_CODE) = .CLM_CODE; ! Use the input argument 
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-600 CLUSMSG_RQCB_SEND (CSID, CLM_CODE, ROQCB) 14- ~ge0 7} 38% oy: 4; 3 OPCOM. SRCICLUSMSG_B32:1 . (35 V 
: 0884 2 BUFFER [CLM_B_DS_VERSION] = CLMRQCB_K_DS VERSION; ; 
: 89 08 5 2 BUFFER [CLM-B~SW-VERSION) = OPCSK _S@_VERSION; F 
> 894 8 § BUFFER CCLM_W_LENGTH = ,LEN; ; 
: 895 8 BUFFER CCLMTWTFILL_1] = é: ; 
: 896 0888 2 BUFFER CCLM“L~CSIDJ = .LCL_CSID; : 
: 897 0889 2! : 
; 43 +94 : Send it off to the designated target(s) : 
: 900 089¢ RETURN CLUSCOMM_SEND (.CSID, .LEN, BUFFER); : 
> 901 0893 1 END; ! End of CLUSMSG_RQCB_SEND | ; 
01FC 00000 .ENTRY CLUSMSG_ROCB_SEND, Save R2,R3,R4,R5,R6,R7,- ; 0770) ; 
SE F66C CE 9 0000 MOVAB =2452(SP), SP : ; 
04 00006 CF €E8 0000 BLBS § GLOBAL_STATUS+1, 1$ + 0817 ; 
50 01 00 0000Cc MOVL #1, RO > 0819. ; 
04 OO00F RET : ; 
51 OC AC DO 00010 18: MOVL = RQCB, R1 + 0823 ; 
0094 &F 08 Al B1 00014 CMPW 3 s«B(R1S, #148 : ; 
OC 12 OOO1A BNEQ 2 : ; 
000000006 8F OA Al 08 00 ED 0001C CMPZ2V #0, #8, 10(R1), #RQCB_K_TYPE + 0825. ; 
0E 13 00026 BEQL : ; 
00058264 8F DD 00028 2$: PUSHL #361060 > 0827 | : 
000000006 00 01 FB 000 : CALLS #1, LIBSSTOP : | ; 
04 000 RET : | ; 
56 OC AE 9E 00036 38: MOV BUF FER+ 12 ROCBUF > 0831 ; 
66 61 0094 8F 28 OO03A MOVC3 #14 RIS, (ROCBUF) : 0832 ; 
58 O0OA8 CE 9E 00040 MOV SUSERStG PTR : 0837 : 
6C Ab D5 00045 TSTL SU ReCBUES : 0838 : 
20 13 00048 BEQL © 4$ : ; 
50 6C Ab DO O004A MOVL  108(RQCBUF), MCB + 0843 : 
OOAO «CE 2C AO 00 0004E MOVL  44(MCB), BUFFER+160 + 0844 ; 
OOAS CE 28 Ad DO 00054 MOVL 40(MCB) , BUFFER+164 > 0845 ; 
57 30 AO DO O005A MOVL.  48(MCB). LEN : 0846 ; 
£8 34 B80 57 28 00056 MOVC3 LEN, Be 5 (HEB) . (PTR) + 0847 ; 
58 57 CO 0006 ADDL2 LEN, PTR + 0848 ; 
6C Ab 57 00 90066 MOVL LEN, 108(RQCBUF) : 0849 ; 
57 7c «6 00 006A 4$: MOVL  124(RQCBUF), LEN > 0851 ; 
09 1 O06E BEQL 5$ : : 
£8 0080 06 7 28 09 MOVC3 LEN, @128(RQCBUF), (PTR) > 0854 ; 
5 57 ¢O 00076 ADDL LEN > 0855 : 
57 0084 (6 bg 00079 5$: MOVL 132(RQCBUF), LEN : 0857 | ; 
1B 13 OO07E BEQL «6 7$ ; : 
08 2C A6 Bi 00080 CMPW © 44(RQCBUF), #8 : 0860 : 
OC 12 00084 BNEQ 6$ : : 
07 52 A691 0086 CMPB = B2(RQCBUF), #7 > 0861 | ; 
06 12 00 A BNEQ 6$ : : 
0084 : p4 8C CURL 132 (RQCBUF) : 0863. ; 
68 0088 D6 ? 2 $2 63: MOVC3 LEN, @136(RQCBUF), (PTR) > 0866. ; 
os 9 ADDL EN PTR ; 0867 | 3 
34 A6 04 00098 7$: CLRL § (ROCBUF) > 0873 | ; 
0080 C6 D4 O009E CLRL  128(RQCBUF) : 0874 | : 


Lo covet intuit aietsluna unite a eecosiesngteiodes cabelas iceeeee totems eiaiaieen 


D 
9 fel 16= 
v04- CLUSMSG_RQCB_SEND (CSID, CLM_CODE, RQCB) 14 
pose c6 7C 8 ~ CLRQ 
C6 pe A CLRL 
28 g 4 AA MOVA 
57 § OAD SUBL 
6E 1 0 00081 MOVB 
01 AE 08 AC 90 00084 MOVB 
02 AE 0902 = «BF Re 0089 MOVW 
04 AE 5? 3C OQOOBF MOVZWL 
08 AE 0000G CF bd 000C3 OVL 
4080 8F BB 000C9 PUSHR 
04 Ag DD O00CD PUSHL 
0000G CF 0 fe iit gays 


; Routine Size: Routine Base: S$CODE$ + 0467 


214 bytes, 
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; 903 0894 1 GLOBAL ROUTINE CLUSMSG_STATE_SEND (CSID) = 

; 904 Bae 1 

; 905 96 1 S++ ; 

3 208 0897 1 ! Functional description: 

: 90 0898 1! 

; 908 0899 1! CLUSMSG_STATE_SEND sends the state of the current OPCOM process to a remote process. 
: 48 0301 : } The state consists of the active operators and active requests. 
; «911 O06 1! Input: 

3 ai¢ 0903 1! 

7; 91 0904 1! None. 

: «914 8309 1! te 

; «6915 ane 1! Implicit Input: 

; 916 0907 1! 

; 917 0908 1! None. 

; 918 0909 1! 

; 919 0910 1 ! Output: 

: 920 0911 #1! 

; 921 Bai¢ 1! None. 

3 oc¢ 0913 1! 

s; 92 0914 1 ! Implict output: 

: 924 0915 1! 

; 925 0916 1! None. 

: 926 wir 3). 

s 927 0918 1 ! Side effects: 

: 928 0919 1! 

3 44 0920 1! None. 

: 930 8353 1! 

3; «6931 09 ¢ 1 ! Routine value: 

3 336 09 1! 

s 935 0924 1! None. 

: 934 0925 1 !-- 

; 935 0926 1 

: 936 0927 2 BEGIN ' Start of CLUSMSG_STATE_SEND 
, 957 0928 2 

; 938 0929 2 LOCAL 

: 939 0930 2 RQCB : $ref_bblock, ' RQCB data structure 
: 940 0931 § OcD : $ref_bblock, ! OCD data structure 
; 941 093 NEXT _OCD : $ref_bblock, ! ditto F 
3; 94 093 ocD_TOUNT : LONG; ' Count of OCDs in List 
, oS 0934 EXIT_STATUS : LONG, 

3 944 0935 STATOS : LONG; 

: 945 0936 2 

; 94 3544 ! 

; 94 0938 ! Loop through all requests, and send each of them off 

>; 948 0939 ! 

; 949 0940 2 EXIT_STATUS = TRUE; 

; 950 0941 INCR™I FROM MIN_SCOPE TO MAX_SCOPE DO 

; «6951 Reg GIN 

; 926 094 ! 

: oer bees For each each class of operator (SYSTEM, GROUP, USER) ... 

; «955 0946 NEXT_OCD = .OCD_VECTOR ((.1-1)*2); ' Get first OCD in List 
: 956 been INCR’ J FROM 1 10 -OCD_VECTOR C(.1-1)*2+1] DO 

; 957 948 & BEGIN 

; 958 0949 4 ! : 

; 959 0950 4 ' For each OCD in the operator class list... 
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CLUSMSG_RQCB_SEND (CSID, CLM_CODE, RQCB) OPCOM.SR 3 
; 960 951 4 ! 
; 961 326 4 OCD = .NEXT_OCD; ! Get current OCD address 
; 96 9 4 NEXT_OCD = “Pee COCD_L taht ' Get next OCD address 
; 96 954 4&4 RQCB = .OCD COCD_L_ROSTFLINK ' Get first request address 
> 964 0955 4 WHILE .RQCB NEQ OCB COCD_L_RQSTFLINK] DO 
; 965 B328 2 BEGIN 
: 966 095 ! 
: 967 0958 5 ' For each request in the OCD List... 
; 968 0959 5 { 
; 969 0960 5 IF NOT IMPLICITLY_CANCELED (.RQCB) 
: 970 0961 5§ THEN 
; 971 3494 2 ! 
: ie B20 é } The request is still good, send it off to the target(s) 
; 974 0965 6 IF NOT (STATUS = CLUSMSG_RQCB_SEND (.CSID, CLM__CHECK_REQUEST, .RQCB)) 
; 975 0966 5 THEN 
: 976 0967 5 EXIT_STATUS = .STATUS; 
; 977 0968 5 RQCB = .RQCB™ PROC L_LFLINKI; ' Get next request address 
; 978 0969 4 END; 
; 979 0970 3 END; 
: 980 0971 2 END; 
; «6981 0972 2! 
; 982 0975 2! After sweeping through the data base, we may have discovered some implicitly canceled requests and 
; 983 0974 2! implicitly disabled operators. Process them now. The requests should be done first, as yet more 
> 984 0975 2! implicitly disabled operators may turn up. 
; 985 0976 2! 
: 986 0977 2 IMPLIED CANCEL (); 
: 987 0978 2 IMPLIED“DISABLE (5; 
: 988 0979 § ! 
; 989 3454 § ! Send the List of operators off to the world. 
; «991 0982 § INCR I FROM MIN_SCOPE TO MAX_SCOPE DO 
; 99 0983 BEGIN 
; 99 0984 3 ! 
3 pa 3444 ; ; For each each class of operator (SYSTEM, GROUP, USER) ... 
3; 996 0987 3 NEXT =0CP = ,OCD_VECTOR C(.1-1)*2]; ! Get first OCD in List 
: 997 0988 3 INCR’J FROM 1 TO .OCD _VECTOR C(.1-1)*2+1] DO 
; 998 0989 4 BEGIN 
: 999 0990 4 ! : , 
; 1000 0991 4 i For each OCD in the operator class List... 
: 1601 0992 4 ! 
3; 1002 0993 4 OCD = .NEXT_OCD ' Get current OCD address 
: 1003 994 4 = XT_OCD = . CD Coco D_L_FLINK); ' Get next OCD address 
3; 1004 995 4 RQCB-= .OCD OPERFLINK i Get first operator address 
: 1005 0996 4 WHILE .RQCB NEG ote OPEREL INE: aes rc) DO 
: 1006 0997 5 BEGIN 
: 1007 0998 5 : 
3 H's 4 $444 é | Tell the world about this operator 
: Hb 44 ? IF NOT (STATUS = CLUSMSG_RQCB_SEND (.CSID, CLM__CHECK_OPERATOR, .RQCB)) 
5 1018 1003 5 EX] arate = .STATU 
3: 101 1004 5§ RQCB = "Roce RQCB_L ALINE): ' Get next operator address 
3: 1014 1005 4 END; 
3; 1015 1006 3 END; 
3; 1016 1007 2 END; 
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OPCSCLUSMSG 16-Sep AX-11 Bliss-32 V4.0-74 Page 34. 
904.000 CLUSMSG_RQCB_SEND (CSID, CLM_CODE, ROCB) 14-Sep =}382 93: §); 3 OPCOM.SR Bader USMSG. B3os4 . a 
04 AC DD 000A7 PUSHL cs1D : 
FE7B CF F AA CALLS @# CLUSMSG_RQCB_SEND : 
D AF MOVL RO, STAT us ; | 
e B BLBS STATUS, 10$ ; 
D B MOVL STATUS, EXIT_STATUS : 1003) 
4 64 OD B8 10$ MOVL  (RQCB). RQCB : 1004 | 
D 1 BB BRB 9$ + 099 

CF 5 6 F BD 13 AOBLEQ Ro J 8$ + 0988 | 

BA ; é F C1 12$ AOBLEQ Rif : 09 

p ¢ MOVL EXIf_SfaTUS, RO : 10 
4 000¢ RET + 1010 


; Routine Size: 201 bytes, Routine Base: S$CODE$ + 053D 
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VOSLOOO ” §=—CLUSMSG_ROCB_SEND (CSID, CLM_CODE, ROCB) 1b-s 3epn18he 93:80:8? © FOXcom. Bac SELogmec oso, 


! End of module 
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PSECT SUMMARY 


Name Bytes Attributes 
SCODES 1542 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, Sole Ed brett 
SPLITS 380 NOVEC, *NOWRT, RD *NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


onaweame Syabelg scccaes= Pages Processing 

File Total Loaded Percent Mapped Time 
55$DUA28: CSYSLIBILIB.L32;1 18619 9 Q 1000 00:01.8 
55$DUA28 : COPCOM.OBJ JOPCOMLIB.L32;1 633 80 12 43 00:00.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CLUSMSG/OBJ=OBJ$:CLUSMSG MSRC$:CLUSMSG/UPDATE=(ENH$: CLUSMSG) 


; Size: 1542 code + 380 data bytes 
; Run Time: 0:31. 

; Elapsed Time: 01536-6 

; Lines/CPU Min: 1928 

; Lexemes/CPU-Min: 15412 

; peaeey Used: 195 pages 

; Compilation Complete 
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